home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls089.ibmaix.Z / tls089.ibmaix / lib / vtcl / csh-env < prev    next >
Encoding:
Text File  |  1995-07-20  |  1.7 KB  |  68 lines
  1. # RCSfile: csh-env $Revision: 1.2 $ $Date: 1995/05/22 11:14:56 $
  2. # Environment setup file for IXI Visual Tcl 1.0 C1 (csh version)
  3. #
  4.  
  5. # Vtcl top-level directory
  6. set VTCLTOP=`dirname $VTCL_HOME`
  7. set VTCLTOP=`dirname $VTCLTOP`
  8.  
  9. # Environment variable for tcl
  10. setenv TCL_LIBRARY $VTCLTOP/usr/lib/tcl
  11.  
  12. # Search path for Vtcl app-defaults
  13. if ( $?XFILESEARCHPATH == 0 ) then
  14.     setenv XFILESEARCHPATH $VTCLTOP/usr/lib/X11/app-defaults/%N
  15. else
  16.     setenv XFILESEARCHPATH $VTCLTOP/usr/lib/X11/app-defaults/%N:$XFILESEARCHPATH
  17. endif
  18.  
  19. # Set up help files 
  20. set base="vtcl"
  21.  
  22. # Set up the information in the user's help config files.
  23. # If the files (and parent directories) don't exist, they are created.
  24. # If the files are not writeable, we assume the administrator or user
  25. # wants to manually modify them.
  26.  
  27. if ( ! -d $HOME/.ixi ) then
  28.     mkdir $HOME/.ixi
  29. endif 
  30.  
  31. if ( ! -d $HOME/.ixi/mos ) then
  32.     mkdir $HOME/.ixi/mos
  33. endif 
  34.  
  35. set TEXTFILE=$HOME/.ixi/mos/books
  36. set HANDLE=$base
  37. set FILEPATH=$VTCL_HOME/doc/%N/%L/%T%S
  38.  
  39. if ( ! -f $TEXTFILE ) then
  40.     touch $TEXTFILE
  41.     chmod u+w $TEXTFILE
  42.     if ( ! $?trace == 0 ) then
  43.         echo "    trace: Created $TEXTFILE"
  44.     endif
  45. endif
  46.  
  47. if ( -w $TEXTFILE ) then
  48.         grep "^${HANDLE}[     ]" $TEXTFILE > /dev/null
  49.     set RESULT=$status
  50.         if ( $RESULT == 0 ) then
  51.                 /bin/mv $TEXTFILE $TEXTFILE.old
  52.                 sed "s@^${HANDLE}[     ].*@$HANDLE    $FILEPATH@" \
  53.                   <$TEXTFILE.old >$TEXTFILE
  54.                 /bin/rm -f $TEXTFILE.old
  55.         if ( ! $?trace == 0 ) then
  56.             echo "    trace: Altered $HANDLE in $TEXTFILE"
  57.         endif
  58.         else
  59.                 echo $HANDLE    $FILEPATH >> $TEXTFILE
  60.         if ( ! $?trace == 0 ) then 
  61.             echo "    trace: Added $HANDLE in $TEXTFILE"
  62.         endif
  63.            endif 
  64. endif
  65.  
  66.  
  67.  
  68.